home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c13.d64 / 2.Nova9.4.sfx / nova.Print docs (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  3KB  |  75 lines
  1. 10 DATA"CONTENTS","INTRODUCTION","GETTING STARTED","TERM/AUTODIAL"
  2. 20 DATA"SCRIPT FILES","EXTERNAL PROGS","PARAMETERS LEFT","PARAMETERS RIGHT"
  3. 30 DATA"DISK/BUFFER/XFER","MEMORY MAP"
  4. 40 POKE45,PEEK(174):POKE46,PEEK(175):POKE49152,0:CLR:DIMF$(9),M%(9),N%(9)
  5. 50 IFPEEK(38400)<>76THENPRINT"[205]UST LOAD [206]OVATERM FIRST":END
  6. 60 FORI=0TO9:READF$(I):NEXT:ML=38400:SL=52608:DV=PEEK(186):IFDV<8ORDV>16THENDV=8
  7. 70 P$="[206]OVATERM 9.3 DOCUMENTATION                                    [208]AGE"
  8. 80 U$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  9. 90 OPEN15,DV,15:PRINT"[147][201]NSERT DOCUMENTATION DISK IN DEVICE"DV:PRINT"AND HIT RETURN"
  10. 100 GETA$:IFA$<>CHR$(13)THEN100
  11. 110 PRINT"[195]HECKING FOR ALL FILES..."
  12. 120 OPEN1,DV,0,"$":GET#1,A$,A$:SYSML+54
  13. 130 SYSML+54:IFRIGHT$(Z$,1)="."ORRIGHT$(Z$,4)="FREE"THENCLOSE1:GOTO180
  14. 140 F$="":FORI=7TO22:IFMID$(Z$,I,1)=CHR$(34)THENI=22:GOTO160
  15. 150 F$=F$+MID$(Z$,I,1)
  16. 160 NEXT:FORI=0TO9:IFF$=F$(I)THENM%(I)=1:I=8
  17. 170 NEXT:GOTO130
  18. 180 J=0:FORI=0TO8:IFM%(I)=0THENPRINT"[206]OT ALL DOCUMENTATION FILES FOUND!":GOTO630
  19. 190 PRINT"[197]NTER LINES PER PAGE:":PRINT"(DEFAULT = 60)":PRINT"[145][145]"TAB(22);
  20. 200 GOSUB710:PG=VAL(I$):IFPG=0THENPG=60
  21. 210 PRINT"[197]NTER PHYSICAL PAGE SIZE:":PRINT"(DEFAULT = 66)":PRINT"[145][145]"TAB(26);
  22. 220 GOSUB710:PH=VAL(I$):IFPH=0THENPH=66
  23. 230 PRINT"[197]NTER SECONDARY ADDRESS:":PRINT"(DEFAULT = 7)":PRINT"[145][145]"TAB(25);
  24. 240 GOSUB710:PS=VAL(I$):IFPS=0THENPS=7
  25. 250 PRINT"[208]RINT [193][146]LL OR [211][146]OME DOC FILES?  [146][157]";
  26. 260 GETA$:IFA$<>"A"ANDA$<>"S"THEN260
  27. 270 PRINTCHR$(ASC(A$)+128):IFA$="A"THENN%(0)=0:FORI=1TO8:N%(I)=1:NEXT:GOTO300
  28. 280 PRINT:FORI=0TO8:PRINT"[208]RINT "F$(I)"?  [146][157]";:GOSUB720:N%(I)=Y:NEXT
  29. 290 PRINT"[211]TART FROM WHAT PAGE NUMBER: ";:GOSUB710:P=VAL(I$):IFP=0THENP=1
  30. 300 PRINT"[193]LIGN PRINTER PAPER AND HIT RETURN"
  31. 310 GETA$:IFA$<>CHR$(13)THEN310
  32. 320 PRINT"[208]RESS  [211] [146] TO STOP OR  [208] [146] TO PAUSE":PRINT"DURING PRINTING"
  33. 330 OPEN4,4,PS
  34. 340 IFN%(0)=0THENPRINT"[208]RINT TABLE OF CONTENTS?  [146][157]";:GOSUB720:IFY=0THEN420
  35. 350 OPEN2,DV,2,F$(0):INPUT#15,E:IFE>19THEN420
  36. 360 PRINT:PRINT"[208]RINTING "F$(0);:L=0
  37. 370 POKE781,2:SYSML+60:F=ST:PRINT#4,"        "S$;:L=L+1
  38. 380 IFL=PGTHENFORI=PG+1TOPH:PRINT#4:NEXT:L=0
  39. 390 GETA$:IFA$="P"THENWAIT198,1:GETA$
  40. 400 IFF=0ANDA$<>"S"THEN370
  41. 410 FORI=L+1TOPH:PRINT#4:NEXT:IFA$="S"THEN500
  42. 420 CLOSE2:L=0:P=1:FORK=1TO8:IFM%(K)=0ORN%(K)=0THEN510
  43. 430 OPEN2,DV,2,F$(K):INPUT#15,E:IFE>19THEN510
  44. 440 PRINT:PRINT"[208]RINTING "F$(K);
  45. 450 POKE781,2:SYSML+60:F=ST:PRINT#4,"     "S$;:L=L+1
  46. 460 IFL=PGTHENGOSUB690
  47. 470 GETA$:IFA$="P"THENWAIT198,1:GETA$
  48. 480 IFA$="S"THENK=8:F=1
  49. 490 IFF=0THEN450
  50. 500 CLOSE2:IFL>3THENGOSUB690
  51. 510 NEXT:IFM%(9)=0THEN620
  52. 520 PRINT"[208]RINT MEMORY MAP?  [146][157]";:GOSUB720:IFY=0THEN620
  53. 530 P$="[206]OVATERM 9.4 MEMORY MAP                                       [208]AGE":P=1
  54. 540 OPEN2,DV,2,F$(9):INPUT#15,E:IFE>19THEN610
  55. 550 PRINT:PRINT"[208]RINTING "F$(9);
  56. 560 POKE781,2:SYSML+60:F=ST:PRINT#4,"     "S$;:L=L+1
  57. 570 IFL=PGTHENGOSUB690
  58. 580 GETA$:IFA$="P"THENWAIT198,1:GETA$
  59. 590 IFA$="S"THENI=8:F=1
  60. 600 IFF=0THEN560
  61. 610 CLOSE2
  62. 620 PRINT:PRINT"[212]RY AGAIN?  [146][157]";:GOSUB720:IFYTHEN300
  63. 630 PRINT"[201]NSERT [206]OVATERM DISK AND HIT RETURN"
  64. 640 GETA$:IFA$<>CHR$(13)THEN640
  65. 650 OPEN2,DV,0,"PROG MENU":INPUT#15,E:CLOSE2:IFE>19THEN670
  66. 660 LOAD"PROG MENU",DV
  67. 670 OPEN2,DV,0,"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
  68. 680 PRINT"[147]":LOAD"NOVATERM ?.?*",DV
  69. 690 FORI=L+1TOPH:PRINT#4:NEXT:P=P+1:PRINT#4,"     "P$P:PRINT#4,"     "U$:PRINT#4
  70. 700 L=3:RETURN
  71. 710 OPEN9,3:POKE780,3:SYSML+39:CLOSE9:RETURN
  72. 720 GETA$:IFA$<>"Y"ANDA$<>"N"THEN720
  73. 730 IFA$="N"THENPRINT"NO":Y=0:RETURN
  74. 740 PRINT"YES":Y=1:RETURN
  75.